home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 3 / Amiga Tools 3.iso / rexx / ps_coords.pvrx < prev    next >
Text File  |  1994-08-10  |  1KB  |  35 lines
  1. /***************************************************************************
  2. *                                                                          *
  3. *  $VER: PS_Coords.pvrx 1.0 (10.Aug.94)                                    *
  4. *   Copyright © 1994 by Stylus, Inc.                                       *
  5. *   Author:  Jeff Blume                                                    *
  6. *                                                                          *
  7. *   Flips the coordinate system to PostScript®                             *
  8. *                                                                          *
  9. *                                                                          *
  10. ***************************************************************************/
  11.  
  12. /*
  13. call open STDOUT,"RAM:RxOut.txt",W
  14. call open STDERR,"RAM:RxErr.txt",W
  15. trace R
  16. */
  17.  
  18. 'Lock'
  19. if rc ~= 0 then exit
  20.  
  21. /* GetPageSize' Pdims. - This doesn't work, but is more correct REXX ??? */
  22. 'GetPageSize' Pdims    /* This works */
  23.  
  24. Var.X1 = Pdims.X1
  25. Var.Y1 = Pdims.Y2
  26. Var.X2 = Pdims.X2
  27. Var.Y2 = Pdims.Y1
  28.  
  29. 'SetPageSize' Var
  30.  
  31. 'UnLock'
  32.  
  33.  
  34. EXIT
  35.